home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 001 / pcdisksp.arc / PCDISKSP.MRG < prev    next >
Encoding:
Text File  |  1983-09-20  |  1.0 KB  |  24 lines
  1.  
  2.  
  3.  
  4. Invalid Entry.
  5.  
  6. Press <ENTER> to Receive or <A>bort.
  7.  
  8. 17 'PC-TALK merge- causes Alt-V to show disk space left on "logged" disk
  9. 20 CLEAR ,40000!   'May need to adjust lines 20,25,& 3120 for your system.
  10. 25 DEF SEG=&HFC0
  11. 28 DEFINT A-Z
  12. 30 FOR I=&H100 TO &H15B
  13. 32 READ J
  14. 34 POKE I,J
  15. 36 NEXT
  16. 40 DATA 85,139,236,139,118,8,139,20,250,140,200,142
  17. 41 DATA 208,188,0,1,251,180,25,205,33,80,30,180,14
  18. 42 DATA 205,33,180,27,205,33,184,1,0,139,202,43,246
  19. 43 DATA 64,139,248,209,239,3,248,139,57,169,1,0,116
  20. 44 DATA 8,209,239,209,239,209,239,209,239,129,231,255,15
  21. 45 DATA 117,1,70,226,225,31,90,180,14,205,33,250,140,192
  22. 46 DATA 142,208,139,229,251,139,126,6,137,53,93,202,4,0
  23. 47 'Checksum=12074
  24. 822 IF CODE=47 THEN 3100
  25. 3100 A=1:B=0:IF DRIVE$="A:" THEN A=0
  26. 3110 IF DRIVE$="C:" THEN A=2
  27. 3120 DEF SEG=&HFC0:DSK=&H100  'Do not change DSK=&H100!
  28. 3125 CALL DSK(A,B):C!=512*B  'Written by Jack Wright (B=# of free sectors)
  29. 3130 PRINT DRIVE$;" Drive avail. space= ";C!
  30. 00!
  31. 3125 CALL DSK(A,B):C!=512*B  'Written by J